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January 8 , 1965 



1620 XY PLOT PROGRAM 
by 

PriscillaM. Maslo 



Direct Inquiries To: 

Priscilla M . Maslo 
Systems Engineering Department 
333 North Broad Street 
Elizabeth, New Jersey 



Modifications or revisions to this program, as they occur, will be announced 
in the appropriate Catalog of Programs for IBM Data Processing Systems. 
When such an announcement occurs, users should order a complete new pro- 
gram from the Program Information Department. 



DECK KEY 



1. FORTRAN source deck - 
1620 XY Plot Program 

Sequence # in cc. 73-80 (MASLP00 1 -MASLP06 0) 
60 cards . 



2 . Object deck - 

1620 XY Plot Program _ _ 
Sequence # in cc. 75-80 (000001-000236) 
236 cards . 



3 . Sample Problem Input 
9 cards . 



1. 



TABLE OF CONTENTS 



Section No. of Pages Page No. 



Deck Key 1 1 

Table of Contents 1 2 

Program Brief 2 3-4 

Detailed Program Description 1 5 

Program Modification 1 6 

I/O Format 2 7-8 

Operating Instructions 2 9-10 
Sample Problem, Explanation and 

Operating Instructions 1 11 

Sample Problem Output 1 12 

Block Diagram 3 13-15 

Fortran Listing 2 16-17 



2. 



e 



PROGRAM BRIEF 



A. Purpose 

This program will plot data in the first quadrant of the X-Y plane , 
using a 1443 Printer. Input parameters include: 



a) 


title of plot 


b) 


date of plot 


c) 


title of Y-axis 


d) 


title of X-axis 


e) 


upper limit of the Y-axis 


f) 


scale of the intervals on the Y-axis 


g) 


number of printed lines between indicative information on 




the Y-axis 


h) 


the character used to plot the data 


Method 



The program begins printing at the upper limit of the plot and 
decrements at regular intervals until it reaches the abscissa 
(X axis). Printing takes place from an output array, the elements 
of which have either blanks or the plot character. 

C. Restrictions 

The abscissa (X axis) is limited to 113 points. 

The input points to be plotted must be Y-coordinate values, 
arranged on the data cards in increasing order of X starting from 
the origin. 

The indicative information on the Y-axis is limited to six digits. 

D. Accuracy 

Not applicable. 
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E . Machine Configuration 
A 40K 1620 system with: 

a) 1622 

b) Indirect Addressing; Automatic Divide 

c) 1443 Model 1 (121 print positions) 

F. Program Requirements 

This program occupies 17,610 core positions. 

G. Source Language 

This program is written in 1620 FORTRAN II. 

H. Program Execution Time 

Program execution time depends upon the "length" of the Y-axis 
to be plotted. 

I. Check Out Status 

This program has been thoroughly tested. It has been used 
regularly by one installation for several months . 

J. Sample Problem Running Time 

The sample problem will run approximately one minute on a 
1620-1443 Model 1 and approximately 30 seconds on a 1620 
Modelll. 

K. Comments 

This program and its documentation were written by an IBM 
employee. It is being submitted for general distribution to 
interested parties in the hope that it might prove helpful to 
other members of the data processing community. The program 
and its documentation are in the author's original form. IBM 
serves only as the distribution agency in supplying this program. 
Questions concerning the use of the program should be directed 
to the author's attention. 
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DETAILED PROGRAM DESCRIPTION 



The program reads in parameters that indicate the title of the plot (TITLE) , 
the date of the plot (DATE), the title of the Y axis (YAX1, YAX2) , the title 
of the X axis (XAX) , the character used to plot the data (DOT) , the upper 
limit of the Y axis (ULIM) , the scale of the interval between the lines 
of plotted output (GIN), the number of points to be plotted (IPAR), and 
the number of printed lines between indicative information on the Y axis 
(CONST) . 

Then the data to be plotted is read VALU (IPAR) . The x print position of 
the point is obtained from the order of the data items on the input cards; 
that is , the first input data item will be considered to belong in the first 
print position along the X axis, the second input data item, in the 
second, etc. Each data item is the Y-coordinate of the point to be 
plotted. Note that the x print position is not to be confused with the 
X- coordinate . The X-coordinate is the x print position times some scale 
factor. 

The program prints the title of the plot, the date of the plot, the title of 
the Y axis and then begins printing at the upper limit of the plot and 
decrements at regular intervals until it reaches the abscissa. At each 
interval the input data items (Y-coordinate values) are examined for a 
value corresponding to the value of the particular interval. If equals 
are found at an "interval level", the user's plot character will be printed 
at that "interval level", representing the Y-value, and in a print position 
as defined by the order of the input, representing the X-value. Values 
between interval levels will be plotted at the closest approximate 
interval. Interval identification is printed as per input parameters. 
When the plot is complete, the X axis title is printed, END OF JOB is 
typed, and the program waits at PAUSE 9 for further plots. 

To print a new plot with more data items under the same titles for the 
X and Y axes, the user sets program switch "1" off and hits start. The 
program then reads a card with the new plot parameters and plot title. 

To print a subsequent plot with new titles for the X and Y axes and 
possibly with a new plot character, the user puts program switch "1" on 
and hits start. This has the same effect as a "cold start". 
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PROGRAM MODIFICATION 



If a Model II 1443 is available, the X axis can be extended beyond 
113 positions in order to take advantage of the additional print 
capacity. 



.6. 



© 



I/O FORMAT 



INPUT 



Card 1: Plot character/axis titles card 
Column Field Name Purpose 

1 DOT Character Used to Plot 

2 BLK Blank Character 

3- 10 DATE Date of Plot 

11-14 YAX1 First Line of Y-AXIS Title 

15-18 YAX2 Second Line of Y-AXIS Title 

19-70 XAX X-AXIS Title 

Card 2: Plot parameter/plot title card 

Column Field Name Purpose 

1-3 IPAR Number of Data Items 

4- 13 ULIM Upper Limit of Plot 

14-23 GIN Scale of Interval Between the 

Lines of Plotted Output 

24-27 CONST Number of Printed Lines Between 

Indicative Information on Y-AXIS 

28-80 TITLE Title of Plot 

Card 3: First data item card 

Column Field Name Purpose 

1-10 VALU(l) Y-Coordinate for X-Print Position 

One 

11-20 VALU(2) Y-Coordinate for X-Print Position 

Two 

71-80 VALU(8) Y-Coordinate for X-Print Position 

Eight 



There should be as many Y values (8 per card) as is indicated by 
IPAR on Card 2. The number of data item cards, of course, depends 
upon the number of Y-values. 

Last card: Nines card 

Column Field Name Purpose 



1- 3 



IPAR 



Indicate Last Card 



OPERATING INSTRUCTIONS 



HOW TO PREPARE THE DATA 

For card 1, choose character to plot, decide titles of X and Y axes. 
Then, keypunch this information along with the date of the plot in 
the column indicated in the section I/O Format. 

For card 2, determine number of data items and the upper limit 
necessary for the plot. Choose the scale for the interval between 
plotted lines and the number of printed lines between indicative 
information on the Y axis. Keypunch this information along with 
the title of the plot in the columns indicated in the section I/O 
Format. 

For data item cards, be certain to consider the sequence of the 
Y-values on the cards, as the sequence or order will define the 
X-print position. 

HOW TO USE THE PROGRAM 

1 . Design the plot. 

2 . Change FORMAT statement number 5 and FORMAT statement 
number 41 to meet requirements and definition of specific plot. 

3. Recompile program with new FORMAT statements. 

4. Clear memory. 

5. Load new object program. 

6. Enter subroutines. 

7 . Enter data in following order: 

a) Plot character/axis title card 

b) Plot parameter/plot title card 

c) Data item cards 

d) Last 9's card 
8 . Ready the printer. 

CONSOLE SWITCH SETTINGS 

At initial start, all program switches are off. Thereafter, program 
switch "1" is put on to print a subsequent plot with new titles for 
the X and Y axes and possibly a new plot character, as well as 
new plot parameters. Program switch "1" is put off to print a 
subsequent plot with only new plot parameters and plot title. 
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PRINTER CARRIAGE TAPE 



Channel 1 only - (if plot extends over one page , no page overflow 
is desired) 

HALTS 

Pause 9 - at which time switch " 1" can be set on or off as required. 
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SAMPLE PROBLEM EXPLANATION AND OPERATING INSTRUCTIONS 



The sample problem is intended to illustrate a typical plot. Essentially, 
the program plots test hours over a period of 113 months. Notice that 
the month corresponding to a particular number of test hours, Y-value, 
is a function of the order of the Y-value on the data item cards. The 
sample plot has been designed to require only one sheet of forms. 



To run the sample problem: 



1 . Clear memory 

2. Load the object program 

3. Enter subroutines 

4. Enter data in following order: 

a) Plot character/axis title card 

b) Plot parameters/plot title card 

c) Data item cards 

d) Last 9' s card 

5 . Ready the printer 



On the following page is the plot produced from the sample program data. 
SUGGESTION: The installation using this plot program has microfilmed 
the plots and then enlarged them to desired size for reporting forms . 
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Fo <2xg ArO LISTING RriC m/M;>L..P - /P -JD^ 



DIMENSION TITLE ( 1 3 ) , VALU( 1 13 ) , SPOT ( 1 1 3 ) , X AX ( 13 ) , DATE ( 2 ) 
111 READ_ l,JOT ,BU<,DAJE, YAX1,YAX2,XAX 

1 FORMAT ( 2A1,4A4, 13A4) 
777 READ 2 , IPAR, ULIM, GIN^CONST ,T ITLE 

2 FORMAT U3,2F10.0,F4.0, 13A4) 
I F ( IPAR -999 ) 8 88 ,9 99 , 999 

888 READ 3, ( VALU ( I T ) , I T= 1 , 1 P AR , 1 ) 

3 FO RMAT (8F10.0 ) 

PRINT 4, TITLE 

4 FORMAT ( 1H1,29X,13A4,/) 

PRINT 38, DATE 

38 FORMAT ( 1H0 , 68 X , 2A4 ) 



PRINT 39, YAX1 

39 FORMAT _< 1H0,_A4) 
PRINT 40, Y AX 2 

40 FORMAT (1H0,A4) 
" CON=CONST " 

PLIM=ULIM 



GO TO 65 

6 PLIM=PLIM-GIN 

65 TEMP2=PLIM-(GIN/2. ) 

TEW> = PLIM-GIN 
IT = 

7 IT=IT+1 

IF (VALUUT)-PLIM) 83,8,85 

8 3 IF ( VALU( IT)-TEMP2)84,8,8 
84 IF ( VALIH It) -TEMP) 85,85, 86 
86 VALUUTJ = TEMP 
~ GO TO 85 

8 SPOT(IT)=DOT 



GO TO 9 

85 SPOTU T2=BLK _ 

9 IF I IT-IPAR ) 7,10 ,10 

10 IF ( PLIM-ULIM) 310, 12,310 

310 I F ( PLTM-( ULIM-<C0N*GIN) )T200, 11,200 

11 CON=CON+CONST 



12 LIM=PLIM 

100 PRINT 110, LIM, (SPOTUJTJ^IT^ljIPAR,!) _ 

110 FORMAT ( 1H ,16, 1H-, 10A1, 10 Al, lOAl , lOAl , 10A1, 10A1 , 10A1 , iOAl, 10A1, 
110A1,3A1) _ 
GO TO 220 

200 PRINT 210, (SPOTUTNIpUIPAJ^l) 

210" FORMAT ( 7H , 1H. , id A 1 10 A 1 ,1 OA 1 , 1 A 1 , 1 A 1 ,10A1, 10A1, 10A1, 
110A1, 10A1, 3A1) 

220 IF(PLIM)777,777,6 " ' " " 

999 PRINT 5 
' 5 FORMAT (8H 

1 1 — 



2-— 1 

PRINT 41 

41 FORMAT (8H ,113H1961 1962 1963 " 1964 19 

165 _ 1966 1967 1968 1969 1970 

PRINT 42 , XAX 
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49 42 FORMAT < 1H0, 29X, 13A4, // ) 

50 998 FORMAT ( 12H END OF JOB.,//) 

51 TYPE 998 

52 PAUSE 9 

53 IF ( SENSE SWITCH 1 ) 111,777 

54 END 
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THE COMPUTER MUSEUM HISTORY CENTER 

minimi ii ii 
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